-- card: 2998 from stack: in
-- bmap block id: 8905
-- flags: 0000
-- background id: 2644
-- name: 
----- HyperTalk script -----
on opencard
  set userlevel to 2
  hide background button book
  hide background button find
end opencard

on closecard
  set userlevel to 1
  show background button book
  show background button find
end closecard


-- part 9 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=62 top=279 right=301 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Order Book
----- HyperTalk script -----
on mouseUp
  doMenu Last
  put "$ 2.50" into line 3 of card field price
  answer "Are you a member of the ELP Section?" with "Yes" or "No"
  if it is "Yes" then
    put "$39.95" into line 1 of card field price
    put "$42.45" into line 4 of card field price
  else
    put "$49.95" into line 2 of card field price
    put "$52.45" into line 4 of card field price
    answer "Do you want information about the ELP Section?" with "Yes" or "No"
    if it is "Yes" then put "Send ELP Info" into line 1 of card field Info
  end if
  ask "What is your name?"
  put it into line 1 of card field Address
  ask "What is your firm name/company?"
  put it into line 2 of card field Address
  ask "What is your street address?"
  put it into line 3 of card field Address
  ask "What is your city?"
  put it into line 1 of card field City
  ask "What is your state?"
  put it into line 1 of card field State
  ask "What is your zip code?"
  put it into line 1 of card field Zip
  answer "How are you paying this?" with "Check" or "MasterCard" or "Visa"
  if it = "Check" then
    put "X" into line 1 of card field Check
  else
    if it = "MasterCard" then
      put "X" into line 1 of card field MC
    else
      put "X" into line 1 of card field Visa
    end if
    ask "What is your credit card No.?"
    put it into line 1 of card field CreditNo
    ask "What is its expiration date?"
    put it into line 1 of card field Date
  end if
  doMenu print card
  repeat with i= 1 to 4
    put " " into line i of card field price
  end repeat
  repeat with i= 1 to 3
    put " " into line i of card field Address
  end repeat
  put " " into line 1 of card field City
  put " " into line 1 of card field State
  put " " into line 1 of card field Zip
  put " " into line 1 of card field Check
  put " " into line 1 of card field MC
  put " " into line 1 of card field Visa
  put " " into line 1 of card field CreditNo
  put " " into line 1 of card field Date
  put " " into line 1 of card field Info
  doMenu Prev
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=166 top=275 right=304 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part contents for background part 9
----- text -----